home *** CD-ROM | disk | FTP | other *** search
/ CD/PC Actual 27 / CDROM27.iso / share / progra / mai / Multimedia, Retreives CD information using MMControl OCX < prev    next >
Encoding:
Text File  |  1997-07-14  |  625 b   |  20 lines
  1. 'Description: Retreives CD Audio information with the MMControl OCX
  2.  
  3. 'Place the following code in a Form_Load()
  4.  
  5. Dim DiskID As Long
  6. Dim Track As Integer
  7. MMControl1.DeviceType = "CDAudio"
  8. MMControl1.Command = "open"
  9. DiskID = MMControl1.Tracks
  10.  
  11. For Track = 1 To MMControl1.Tracks
  12. MMControl1.Track = Track
  13. DiskID = DiskID + MMControl1.TrackLength  
  14. DiskID = DiskID + MMControl1.Length       
  15. Next Track
  16.  
  17. label1(1).Caption = "CD ID#: " & DiskID
  18. label1(2).Caption = "Tracks: " & MMControl1.Tracks
  19. label1(3).Caption = "Tracklength: " & MMControl1.TrackLength
  20. label1(4).Caption = "CD Length: " & MMControl1.Length